;;;Modify the LTSCALE of a selection set of entities. (uses UREAL
;;;       The only input required is the desired ltscale
;;;       and selection of the entities to modify.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe St.
;;;		Southern Pines, NC 28387
;;;
;;;	http:paracadd.com
;;;	All rights reserved.
;;;
;;;	Copyright:	6-15-00
;;;	Edited:		6-16-00
;;;
(DEFUN C:LTSCL ( / tset tsln cntr tent edtw)
(setq thkval (ureal 1 "" "\nLinetype scale " (if thkval thkval 1)))
(prompt "\nSelect Lines: ")
(setq tset (ssget '((-4 . "<OR")(0 . "LINE")(0 . "POLYLINE")(0 . "LWPOLYLINE")(0 . "CIRCLE")(0 . "ARC")(0 . "ELLIPSE")(-4 . "OR>"))))
(if tset
  (progn
    (setq tsln (sslength tset))
    (setq cntr 0)
  )
)
(while
  (if (and (< cntr tsln) tset)
    (setq tent (entget (ssname tset cntr)))
  );if
  (progn
    (setq edtw (entget (cdar tent)))
;    (if (eq (cdr (assoc 0 edtw)) "TEXT")
      (progn
        (if (assoc 39 edtw)
          (setq edtw
            (subst (cons 39 thkval)
                   (assoc 39 edtw)
                   edtw
            )
          )
          (setq edtw (append edtw (list(cons 39 thkval))))
        )
        (entmod edtw)
      )
;    )
    (setq cntr (1+ cntr))
  )
)
);DEFUN
